为您找到与excel 破解 密码相关的共200个结果:
在Excel中经常录入一些重要的数据时人们的习惯,但过了一段时间后就已经忘记了,这个时候就需要进行密码破解,如果不懂的朋友可以学习一下,接下来是读文网小编为大家带来的excel2013密码破解的方法,希望对你有用。
密码破解步骤1:将你要破解的Excel文件关闭,切记一定要关闭呀!然后新建一个Excel文件
密码破解步骤2:打开新建的这个Excel,按下alt+F11,打开vb界面,新建一个模块,如图所示
密码破解步骤3:将代码复制到这个模块中,代码如下:
Private Sub VBAPassword() '你要解保护的Excel文件路径
Filename = Application.GetOpenFilename("Excel文件(*.xls & *.xla & *.xlt),*.xls;*.xla;*.xlt", , "VBA破解")
If Dir(Filename) = "" Then
MsgBox "没找到相关文件,清重新设置。"
Exit Sub
Else
FileCopy Filename, Filename & ".bak" '备份文件。
End If
Dim GetData As String * 5
Open Filename For Binary As #1
Dim CMGs As Long
Dim DPBo As Long
For i = 1 To LOF(1)
Get #1, i, GetData
If GetData = "CMG=""" Then CMGs = i
If GetData = "[Host" Then DPBo = i - 2: Exit For
Next
If CMGs = 0 Then
MsgBox "请先对VBA编码设置一个保护密码...", 32, "提示"
Exit Sub
End If
Dim St As String * 2
Dim s20 As String * 1
'取得一个0D0A十六进制字串
Get #1, CMGs - 2, St
'取得一个20十六制字串
Get #1, DPBo + 16, s20
'替换加密部份机码
For i = CMGs To DPBo Step 2
Put #1, i, St
Next
'加入不配对符号
If (DPBo - CMGs) Mod 2 <> 0 Then
Put #1, DPBo + 1, s20
End If
MsgBox "文件解密成功......", 32, "提示"
Close #1
End Sub
密码破解步骤4:然后点击运行按钮,如图所示,绿色的小三角就是
密码破解步骤5:你会看到,打开了一个文件夹,找到我们要破解的这个文件,然后点击打开
密码破解步骤6:稍等几分钟你就会看到破解成功的提示了
密码破解步骤7:再次打开你要破解的这个文件,你会看到这里已经可以查看代码了哈哈
浏览量:2
下载量:0
时间:
在Excel中进行破解密码保护主要是为了拿会重要的数据,这个做法其实都很常用,如果不会的朋友可以学习一番,下面是读文网小编带来的关于如何破解excel密码保护的教程,欢迎阅读!
破解Excel密码步骤1:新建一个EXCEL文件“BOOK1”,在工具栏空白位置,任意右击,选择Visual Basic项,弹出Visual Basic工具栏:
破解Excel密码步骤2:在Visual Basic工具栏中,点击“录制”按钮,弹出“录制新宏”对话框,选择“个人宏工作簿”:
破解Excel密码步骤3:选择“个人宏工作簿”后按确定,弹出如下“暂停”按钮,点击停止:
破解Excel密码步骤4:在Visual Basic工具栏中,点击“编辑”按钮:
破解Excel密码步骤5:点击“编辑”按钮后,弹出如下图的编辑界面:
破解Excel密码步骤6:找到“VBAProject(PERSONAL.XLS)-模块-模块1(也可能是模块N-其他数字)”
破解Excel密码步骤7:双击模块1-将右边代码内容清空
破解Excel密码步骤8:复制“工作保护密码破解”代码到右边框中,点保存,然后关闭“BOOK1”
破解Excel密码步骤9:运行需要解密的“EXCEL文件”,在Visual Basic工具栏中,点击“运行”按钮
破解Excel密码步骤10:点击“运行”按钮后,弹出“宏”对话框,
破解Excel密码步骤11:点击运行“PERSONAL.XLS!工作保护密码破解”这个宏
破解Excel密码步骤12:运行“PERSONAL.XLS!工作保护密码破解”这个宏后,
破解Excel密码步骤13:如下图示意就可以 解除工作表的密码保护了
(这个图,如果工作表中有多组不同密码,
破解Excel密码步骤14:每解开一组,就会提示一次,也就说可能会出现几次)
工作表保护密码破解(代码)
=========请复制以下内容=============
Public Sub 工作表保护密码破解()
Const DBLSPACE As String = vbNewLine & vbNewLine
Const AUTHORS As String = DBLSPACE & vbNewLine & _
"作者:McCormick JE McGimpsey "
Const HEADER As String = "工作表保护密码破解"
Const VERSION As String = DBLSPACE & "版本 Version 1.1.1"
Const REPBACK As String = DBLSPACE & ""
Const ZHENGLI As String = DBLSPACE & " hfhzi3—戊冥 整理"
Const ALLCLEAR As String = DBLSPACE & "该工作簿中的工作表密码保护已全部解除!!" & DBLSPACE & "请记得另保存" _
& DBLSPACE & "注意:不要用在不当地方,要尊重他人的劳动成果!"
Const MSGNOPWORDS1 As String = "该文件工作表中没有加密"
Const MSGNOPWORDS2 As String = "该文件工作表中没有加密2"
Const MSGTAKETIME As String = "解密需花费一定时间,请耐心等候!" & DBLSPACE & "按确定开始破解!"
Const MSGPWORDFOUND1 As String = "密码重新组合为:" & DBLSPACE & "$$" & DBLSPACE & _
"如果该文件工作表有不同密码,将搜索下一组密码并修改清除"
Const MSGPWORDFOUND2 As String = "密码重新组合为:" & DBLSPACE & "$$" & DBLSPACE & _
"如果该文件工作表有不同密码,将搜索下一组密码并解除"
Const MSGONLYONE As String = "确保为唯一的?"
Dim w1 As Worksheet, w2 As Worksheet
Dim i As Integer, j As Integer, k As Integer, l As Integer
Dim m As Integer, n As Integer, i1 As Integer, i2 As Integer
Dim i3 As Integer, i4 As Integer, i5 As Integer, i6 As Integer
Dim PWord1 As String
Dim ShTag As Boolean, WinTag As Boolean
Application.ScreenUpdating = False
With ActiveWorkbook
WinTag = .ProtectStructure Or .ProtectWindows
End With
ShTag = False
For Each w1 In Worksheets
ShTag = ShTag Or w1.ProtectContents
Next w1
If Not ShTag And Not WinTag Then
MsgBox MSGNOPWORDS1, vbInformation, HEADER
Exit Sub
End If
MsgBox MSGTAKETIME, vbInformation, HEADER
If Not WinTag Then
Else
On Error Resume Next
Do 'dummy do loop
For i = 65 To 66: For j = 65 To 66: For k = 65 To 66
For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66
For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66
For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126
With ActiveWorkbook
.Unprotect Chr(i) & Chr(j) & Chr(k) & _
Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _
Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
If .ProtectStructure = False And _
.ProtectWindows = False Then
PWord1 = Chr(i) & Chr(j) & Chr(k) & Chr(l) & _
Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
MsgBox Application.Substitute(MSGPWORDFOUND1, _
"$$", PWord1), vbInformation, HEADER
Exit Do 'Bypass all for...nexts
End If
End With
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
Loop Until True
On Error GoTo 0
End If
If WinTag And Not ShTag Then
MsgBox MSGONLYONE, vbInformation, HEADER
Exit Sub
End If
On Error Resume Next
For Each w1 In Worksheets
'Attempt clearance with PWord1
w1.Unprotect PWord1
Next w1
On Error GoTo 0
ShTag = False
For Each w1 In Worksheets
'Checks for all clear ShTag triggered to 1 if not.
ShTag = ShTag Or w1.ProtectContents
Next w1
If ShTag Then
For Each w1 In Worksheets
With w1
If .ProtectContents Then
On Error Resume Next
Do 'Dummy do loop
For i = 65 To 66: For j = 65 To 66: For k = 65 To 66
For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66
For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66
For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126
.Unprotect Chr(i) & Chr(j) & Chr(k) & _
Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
If Not .ProtectContents Then
PWord1 = Chr(i) & Chr(j) & Chr(k) & Chr(l) & _
Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
MsgBox Application.Substitute(MSGPWORDFOUND2, _
"$$", PWord1), vbInformation, HEADER
'leverage finding Pword by trying on other sheets
For Each w2 In Worksheets
w2.Unprotect PWord1
Next w2
Exit Do 'Bypass all for...nexts
End If
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
Loop Until True
On Error GoTo 0
End If
End With
Next w1
End If
MsgBox ALLCLEAR & AUTHORS & VERSION & REPBACK & ZHENGLI, vbInformation, HEADER
End Sub
<工作表保护密码破解放代码>是放在VBAProject(PERSONAL.XLS)[个人宏工作簿]——[模块]中的,如上图是放在红色标号2[模块1]中
浏览量:3
下载量:0
时间:
在Excel中需要用到密码来保护重要的数据,但时间久了就把密码给忘记了,这个时候就需要破解密码了,下面是读文网小编带来的关于如何破解excel密码的教程,欢迎阅读!
破解密码步骤1:搜索一下图示的关键字,选择第一条,或者百度5秒WORD-EXCEL密码破解,应该也有的,不过担心有的网站是骗人的,有病毒。
破解密码步骤2:点击下方的连接,下载软件,软件不是很大,直接下载下来就可以了,下载下来是一个压缩包,解压该压缩包。
破解密码步骤3:打开压缩包解压出来的文件夹,第二个文件就是我们的密码破解工具,双击打开工具。
破解密码步骤4:浏览,找到我们要破解的文件,点击确定,破解就开始啦。
破解密码步骤5:点击移除密码。
破解密码步骤6:弹出对话框,点击确定,当然,电脑是要能联网的,相信你能看到这篇经验,电脑应该也是能联网的。
破解密码步骤7:解密时间要看密码复杂程度,不过应该没有太变态的密码。
破解密码步骤8:当当当当,成功破解密码,并且生成了一个新的没有密码的文件
浏览量:3
下载量:0
时间:
在Excel中经常需要设置密码保护重要的数据,但时间过后密码就会容易忘记,这个时候就需要破解密码了,接下来是读文网小编为大家带来的如何破解excel宏密码的方法,希望对你有用。
破解宏密码步骤1:打开需要破解的文件,并点开需要输入密码的界面,如图
破解宏密码步骤2:使用EXCEL.EXE重新打开一个工作簿。
破解宏密码步骤3:打开新工作簿的VBA代码区域,并插入一个模块。
破解宏密码步骤4:插入如下代码
Sub test()
Dim st, nd, th3, th4, th5, th6, th7, th8 As Variant
Dim ii, jj, kk, ll, mm, nn, oo, pp, qq As Integer
Dim PADN, PD, IJ, JK, PADNO, speed
speed = 0.005
st = Array("0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z", "A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z")
nd = Array("0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z", "A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z")
th3 = Array("0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z", "A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z")
th4 = Array("0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z", "A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z")
th5 = Array("0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z", "A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z")
th6 = Array("0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z", "A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z")
th7 = Array("0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z", "A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z")
th8 = Array("0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z", "A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z")
PADN = InputBox("How long the password is", "Guilin Hu", 4)
PADNO = CInt(PADN)
For IJ = 1 To 100
If Sheet1.Cells(IJ, 1) = "" Then
Sheet1.Cells(IJ, 1) = Now
Exit For
Else
End If
Next IJ
PauseTime = 2
Start = Timer
Do While Timer < Start + PauseTime
DoEvents
Loop
Finish = Timer
Select Case (PADNO)
Case 1
For ii = 0 To 61
PD = st(ii)
SendKeys PD
PauseTime = speed
Start = Timer
Do While Timer < Start + PauseTime
DoEvents
Loop
Finish = Timer
SendKeys "{enter}"
PauseTime = speed
Start = Timer
Do While Timer < Start + PauseTime
DoEvents
Loop
Finish = Timer
SendKeys "{enter}"
Next ii
Case 2
For ii = 0 To 61
For jj = 0 To 61
PD = st(ii) & nd(jj)
SendKeys PD
PauseTime = speed
Start = Timer
Do While Timer < Start + PauseTime
DoEvents
Loop
Finish = Timer
SendKeys "{enter}"
PauseTime = speed
Start = Timer
Do While Timer < Start + PauseTime
DoEvents
Loop
Finish = Timer
SendKeys "{enter}"
Next jj
Next ii
Case 3
For ii = 0 To 61
For jj = 0 To 61
For kk = 0 To 61
PD = st(ii) & nd(jj) & th3(kk)
SendKeys PD
PauseTime = speed
Start = Timer
Do While Timer < Start + PauseTime
DoEvents
Loop
Finish = Timer
SendKeys "{enter}"
PauseTime = speed
Start = Timer
Do While Timer < Start + PauseTime
DoEvents
Loop
Finish = Timer
SendKeys "{enter}"
Next kk
Next jj
Next ii
Case 4
For ii = 0 To 61
For jj = 0 To 61
For kk = 0 To 61
For ll = 0 To 61
PD = st(ii) & nd(jj) & th3(kk) & th4(ll)
SendKeys PD
PauseTime = speed
Start = Timer
Do While Timer < Start + PauseTime
DoEvents
Loop
Finish = Timer
SendKeys "{enter}"
PauseTime = speed
Start = Timer
Do While Timer < Start + PauseTime
DoEvents
Loop
Finish = Timer
SendKeys "{enter}"
Next ll
Next kk
Next jj
Next ii
Case 5
For ii = 0 To 61
For jj = 0 To 61
For kk = 0 To 61
For ll = 0 To 61
For mm = 0 To 61
PD = st(ii) & nd(jj) & th3(kk) & th4(ll) & th5(mm)
SendKeys PD
PauseTime = speed
Start = Timer
Do While Timer < Start + PauseTime
DoEvents
Loop
Finish = Timer
SendKeys "{enter}"
PauseTime = speed
Start = Timer
Do While Timer < Start + PauseTime
DoEvents
Loop
Finish = Timer
SendKeys "{enter}"
Next mm
Next ll
Next kk
Next jj
Next ii
Case 6
For ii = 0 To 61
For jj = 0 To 61
For kk = 0 To 61
For ll = 0 To 61
For mm = 0 To 61
For nn = 0 To 61
PD = st(ii) & nd(jj) & th3(kk) & th4(ll) & th5(mm) & th6(nn)
SendKeys PD
PauseTime = speed
Start = Timer
Do While Timer < Start + PauseTime
DoEvents
Loop
Finish = Timer
SendKeys "{enter}"
PauseTime = speed
Start = Timer
Do While Timer < Start + PauseTime
DoEvents
Loop
Finish = Timer
SendKeys "{enter}"
Next nn
Next mm
Next ll
Next kk
Next jj
Next ii
Case 7
For ii = 0 To 61
For jj = 0 To 61
For kk = 0 To 61
For ll = 0 To 61
For mm = 0 To 61
For nn = 0 To 61
For oo = 0 To 61
PD = st(ii) & nd(jj) & th3(kk) & th4(ll) & th5(mm) & th6(nn) & th7(oo)
SendKeys PD
PauseTime = speed
Start = Timer
Do While Timer < Start + PauseTime
DoEvents
Loop
Finish = Timer
SendKeys "{enter}"
PauseTime = speed
Start = Timer
Do While Timer < Start + PauseTime
DoEvents
Loop
Finish = Timer
SendKeys "{enter}"
Next oo
Next nn
Next mm
Next ll
Next kk
Next jj
Next ii
Case 8
For ii = 0 To 61
For jj = 0 To 61
For kk = 0 To 61
For ll = 0 To 61
For mm = 0 To 61
For nn = 0 To 61
For oo = 0 To 61
For pp = 0 To 61
PD = st(ii) & nd(jj) & th3(kk) & th4(ll) & th5(mm) & th6(nn) & th7(oo) & th8(pp)
SendKeys PD
PauseTime = speed
Start = Timer
Do While Timer < Start + PauseTime
DoEvents
Loop
Finish = Timer
SendKeys "{enter}"
PauseTime = speed
Start = Timer
Do While Timer < Start + PauseTime
DoEvents
Loop
Finish = Timer
SendKeys "{enter}"
Next pp
Next oo
Next nn
Next mm
Next ll
Next kk
Next jj
Next ii
End Select
For JK = 1 To 100
If Sheet1.Cells(JK, 2) = "" Then
Sheet1.Cells(JK, 2) = Now
Exit For
Else
End If
Next JK
End Sub
破解宏密码步骤5:按F5执行代码,输入密码长度。如果不知道密码的长度,就猜,第一次输1,第二次输2。。。依次试。
破解宏密码步骤6:输入密码长度后,点击确定。并在2s内将鼠标的焦点点在最开始要破解文件的密码输入框里边。接下来的工作就是“静候佳音”了。。哈哈。。
破解宏密码步骤7:没有破解不开的密码。主要的是你有时间就好!1位密码破解最长时间:62/(1/0.005)=0.31秒;2位数密码破解最长时间:62*62/(1/0.005)=19.22秒。。。依次类推:N位数密码破解时间:(62)的N次方/(1/0.005)秒的时间。就看您的耐性了!破解完成之后就会自动进去VBA代码模块。
破解宏密码步骤8:接下来就是修改别人的密码了!进去果断点击VBA工程属性,。。。“干啥?”。。。。哈哈 改密!!
破解宏密码步骤9:看哥的密码改的!哈哈。。。
浏览量:3
下载量:0
时间:
有些重要的数据在有密码保护的文档里,却忘记了密码,这个时候就只有破解密码进行读取数据了,下面是由读文网小编分享的如何破解excel密码的方法,希望对你有用。
破解密码步骤1:先用Microsoft Office Excel 2003(可用金山WPS Office 2012 表格代替)创建一个“2003.xls”的普通方式加密Excel文档,然后用Office Password Remover这个在线破解工具来破解,1,2,3,3秒之后,就生产一个已经被成功破解的新Excel文档——2003(DEMO).xls 。破解一个普通加密方式的Excel文档,只需3秒钟!如果你真的不信,可以自己测试一下!
破解密码步骤2:当然,这个3秒破解Excel文档密码是有条件的。第一个条件:Excel文档保存格式必须为古老的“.XLS ”格式(同理,Word文档保存为“.DOC”格式,PPT文档为“.PPT格式”),第二个条件为加密方式必须为Office 2003或2007(WPS Office 2012)的默认加密方式。
注:要想得到完全的破解文件,需要付费,免费破解的Excel文档只能看到前几行。
破解密码步骤3:如果不付费就破解不了,那就大错特错。要知道,在一台普通配置的电脑上,Excel密码破解工具一秒能测试约88万个密码(需符合以上两个条件)。假设一个6位数的全数字密码,你猜要多长时间来破解?答案是2秒不到(破解时间因测试环境不同而不同)。
破解密码步骤4:WPS表格(用途相当于Excel)虽然提供多种加密方式,但其中的XOR加密方式在Advanced Office Password Recovery里就形成虚设。可能是Advanced Office Password Recovery已经掌握了怎么完美破解XOR加密方式的方法,否则不可能做到无论你设置什么密码,都会被瞬间打开!
小编在此强调一下,这不代表WPS Office 2012 的加密方式不行,只是想说明,Excel加密要选对加密方式才靠谱,后面就是详细讲解这个。
浏览量:3
下载量:0
时间:
在Excel中经常录入重要数据的朋友都知道,如果想要数据不被篡改只能为表格添加密码保护,但有时候却忘记了密码,这个时候就需要用到破解密码的方法了,下面是读文网小编带来的关于excel破解表格保护密码的方法,欢迎阅读!
破解表格保护步骤1:这里有份加密的EXCEL文件
破解表格保护步骤2:选择工具栏——宏——录制新宏
破解表格保护步骤3:输入宏名,如aa
破解表格保护步骤4:点“停止录制”得到一个空宏
破解表格保护步骤5:删除窗口中的所有字符,把代码工具内的代码复制进来
破解表格保护步骤6:选工具——宏——选allinternalpasswords,运行,确定两次
破解表格保护步骤7:点完2次确定后,鼠标处于等待状态,这时代码已经在后台运行处理破解中销等2-3分钟
最后完成后,直接点确定(也是2次确定) 最后再保存,,,,一定要记得保佑,回头再来看看是否需要密码
浏览量:2
下载量:0
时间:
在Excel中经常需要录入一些重要的数据而不想被随意改动,这个时候只能设置密码保护,但是过段时间就把密码忘记了,这个时候就需要用到破解密码这一步了。下面是读文网小编带来的关于excel 2003 破解密码的教程,欢迎阅读!
破解密码步骤1:先暂定系统中的杀毒软件,等将Excel密码破解完毕后再重新开启杀毒。(破解类的工具杀毒软件都会误认为是木马或病毒,这个没毒,请放心使用。)
破解密码步骤2:双击运行该软件;
破解密码步骤3:单击“文件”按钮,在弹出的菜单中选择“打开文件…”,然后找到你需要破解的Excel表格的存放位置,打开;
破解密码步骤4:此时,Excel文件就已经导入了此软件,大家还可以看到可以破解“打开”、写入、工作簿密码、共享工作簿密码、VBA工程密码等,全部可以移除。点击界面上的“移除密码”;
破解密码步骤5:点击“移除密码”以后会提示程序必须要链接网络才可以运行,(确定你的计算机是否已经链接好了网络,然后单击“确定”按钮);
破解密码步骤6:这时后会提示 “状态: 正在链接到 Rixler Server ”,只需等待几秒钟破解完成即可。
破解密码步骤7:OK,密码被成功移除,该文档已经被成功解密,如下图:
破解密码步骤8:哦,生成了一个新的没有密码了的文档:西西软件 _NESOY.xls
破解密码步骤9:里边内容部方便公开,我随便打开了一个测试时打开的截图。
破解密码步骤10:类似的破解软件现在已经很多了,有兴趣的可以自己去找找自己喜欢用了,总之自己习惯用的才是最好用的。
浏览量:2
下载量:0
时间:
在Excel中录入了重要的数据而设置了密码保护,长时间下来可能会忘记了密码,这个时候就需要用到VBA进行破解密码了。下面是由读文网小编分享的excel2007 利用vba破解密码的教程,供大家阅读、学习。
用VBA破解密码步骤1:将你要破解的Excel文件关闭,切记一定要关闭呀!然后新建一个Excel文件
用VBA破解密码步骤2:打开新建的这个Excel,按下alt+F11,打开vb界面,新建一个模块,如图所示
用VBA破解密码步骤3:将代码复制到这个模块中,代码如下:
Private Sub VBAPassword() '你要解保护的Excel文件路径
Filename = Application.GetOpenFilename("Excel文件(*.xls & *.xla & *.xlt),*.xls;*.xla;*.xlt", , "VBA破解")
If Dir(Filename) = "" Then
MsgBox "没找到相关文件,清重新设置。"
Exit Sub
Else
FileCopy Filename, Filename & ".bak" '备份文件。
End If
Dim GetData As String * 5
Open Filename For Binary As #1
Dim CMGs As Long
Dim DPBo As Long
For i = 1 To LOF(1)
Get #1, i, GetData
If GetData = "CMG=""" Then CMGs = i
If GetData = "[Host" Then DPBo = i - 2: Exit For
Next
If CMGs = 0 Then
MsgBox "请先对VBA编码设置一个保护密码...", 32, "提示"
Exit Sub
End If
Dim St As String * 2
Dim s20 As String * 1
'取得一个0D0A十六进制字串
Get #1, CMGs - 2, St
'取得一个20十六制字串
Get #1, DPBo + 16, s20
'替换加密部份机码
For i = CMGs To DPBo Step 2
Put #1, i, St
Next
'加入不配对符号
If (DPBo - CMGs) Mod 2 <> 0 Then
Put #1, DPBo + 1, s20
End If
MsgBox "文件解密成功......", 32, "提示"
Close #1
End Sub
用VBA破解密码步骤4:然后点击运行按钮,如图所示,绿色的小三角就是
用VBA破解密码步骤5:你会看到,打开了一个文件夹,找到我们要破解的这个文件,然后点击打开
用VBA破解密码步骤6:稍等几分钟你就会看到破解成功的提示了
用VBA破解密码步骤7:再次打开你要破解的这个文件,你会看到这里已经可以查看代码了哈哈
浏览量:3
下载量:0
时间:
在Excel中因为录入了过多的重要数据进而需要设置密码进行保护,但过了一段时间却忘记了打开密码,这个时候就需要进行破解打开密码的方法了。下面是由读文网小编分享的excel表格打开密码破解的方法,以供大家阅读和学习。
破解打开密码步骤1:先用Microsoft Office Excel 2003(可用金山WPS Office 2012 表格代替)创建一个“2003.xls”的普通方式加密Excel文档,然后用Office Password Remover这个在线破解工具来破解,1,2,3,3秒之后,就生产一个已经被成功破解的新Excel文档——2003(DEMO).xls 。破解一个普通加密方式的Excel文档,只需3秒钟!如果你真的不信,可以自己测试一下!
破解打开密码步骤2:当然,这个3秒破解Excel文档密码是有条件的。第一个条件:Excel文档保存格式必须为古老的“.XLS ”格式(同理,Word文档保存为“.DOC”格式,PPT文档为“.PPT格式”),第二个条件为加密方式必须为Office 2003或2007(WPS Office 2012)的默认加密方式。
注:要想得到完全的破解文件,需要付费,免费破解的Excel文档只能看到前几行。
破解打开密码步骤3:如果不付费就破解不了,那就大错特错。要知道,在一台普通配置的电脑上,Excel密码破解工具一秒能测试约88万个密码(需符合以上两个条件)。假设一个6位数的全数字密码,你猜要多长时间来破解?答案是2秒不到(破解时间因测试环境不同而不同)。
破解打开密码步骤4:WPS表格(用途相当于Excel)虽然提供多种加密方式,但其中的XOR加密方式在Advanced Office Password Recovery里就形成虚设。可能是Advanced Office Password Recovery已经掌握了怎么完美破解XOR加密方式的方法,否则不可能做到无论你设置什么密码,都会被瞬间打开!
破解打开密码步骤5:小编在此强调一下,这不代表WPS Office 2012 的加密方式不行,只是想说明,Excel加密要选对加密方式才靠谱,后面就是详细讲解这个。
浏览量:2
下载量:0
时间:
在Excel中录入了重要的数据就需要用到密码进行保护,或许是一时间忘记了密码却又需要马上打开文档,这个时候就只能够执行密码破解的方法了,具体该如何破解密码呢?下面是读文网小编带来的关于excel2010密码破解的方法,希望阅读过后对你有所启发!
密码破解步骤1:字典破解。如果密码可能由英文单词、人名等构成,就应该选中的“字典破解(推荐)”。AOPR只带了一个密码字典文件,该字典文件在预备破解时已经使用,因此,要进行字典破解需要选择其它密码字典文件。在"字典"选项卡,单击"获取字典",在打开的AOPR官方网站可以邮购密码字典光盘。另外,字典文件也可以由专业的字典工具生成,这里向大家推荐"易优字典生成器",该工具功能全面,可以生成生日字典,可以定义特殊位,能生成电话号码字典等。
密码破解步骤2:掩码式暴力破解。如果你知道密码中的若干字符,建议选中“掩码式暴力破解”。使用掩码式暴力破解比使用纯粹的暴力破解更节约时间。使用这种破解方法时,要打开“暴力”选项卡,在“掩码/掩码字符:”框中输入密码包含的字符;另外,为了尽量减少尝试的组合数,仍然要设置密码的长度和密码中其它字符所在的字符集。
密码破解步骤3:暴力破解。如果密码由字母、数字等随机构成,就应该选中“暴力破解”。暴力破解是对所有字符(英文字母、数字和符号等)的组合依次进行尝试的一种破解方法。可能的组合数越多,破解的时间越长,而组合数的多少,与密码的长度和密码使用的字符集直接相关,因此,为了减少可能的组合数,在破解前应该估计一下密码的构成特点,然后打开“暴力”选项卡,在“密码长度”下选择密码的最小和最大长度,把已知或估计的密码长度包括进去即可;如果密码是由小写英文字母和数字构成,就要选中“字符集”下面的“a- z”和“0-9”,否则应当按构成密码的字符集选中相应的选项。
密码破解步骤4:如果我们对密码的构成情况一无所知,就应当打开“选项”选项卡,将“预备暴力破解”、“预备字典破解”和“密码缓存预备破解”全部选中。
密码破解步骤5:一旦破解失败,就要回到“暴力”选项卡中修改原来的破解设置,例如增加密码的最小和最大长度的范围,同时选中“A-Z”等更多种类的字符集
密码破解步骤6:密码的操作非常简单,单击“打开文件”按钮打开对话框,在“文件类型”下拉列表中选择“所有支持的文件类型”(或要破解的文件类型),然后找到并选中待破解文件,在此我们选择的是Word文件,单击“打开”立即开始破解密码,主界面窗口下方的“进度指示器”会显示当前的破解进度
密码破解步骤7:一旦AOPR找到了正确的文档密码,就会自动弹出“Word密码恢复”对话框,我们只须单击显示了密码的行右端的按钮,就可以把破解得到的密码复制到剪贴板。
看了excel2010密码破解的方法还看了:
浏览量:2
下载量:0
时间:
Excel中设置的VBA密码该如何进行破解呢?下面是读文网小编带来的关于excel2007vba密码破解的方法,希望阅读过后对你有所启发!
vba密码破解步骤1:双击【@Install_绿化】打开破解软件。
vba密码破解步骤2:选择【打开文件】浏览并打开要破解密码的Excel文件。
vba密码破解步骤3:确定以后即开始破解程序。破解顺序按下图顺序,最后执行暴力破解。
vba密码破解步骤4:破解完毕后会弹出如下界面,每种密码分别列示在不同区域。点击复制按钮即可将密码复制到剪切板。
注意:这里的密码可能不是原始输入的密码,比如说原来输入的密码是:123,这里破解出来的密码可能是:3b4b3b5b7b1这种,但是不影响解开保护。
vba密码破解步骤5:注意:对于VBA密码,点击【更改VBA密码】,输入新的简单密码,例如123,然后确定。
vba密码破解步骤6:点击【复制】按钮复制破解出来的密码
vba密码破解步骤7:双击Excel文件,并粘贴刚才复制的密码。
vba密码破解步骤8:对于工作表保护密码,选中某个工作表名称,然后鼠标右键,选择并复制密码。
vba密码破解步骤9:打开Excel文件,点击【撤销工作表保护】并粘贴复制的密码。
vba密码破解步骤10:点击【保护工作簿】下的【保护结构和窗口】并粘贴复制的密码。
vba密码破解步骤11:按Alt+F11的快捷键,打开VBE界面,输入刚才更改的VBA密码,一切就搞定啦!
看了excel2007vba密码破解的方法还看了:
浏览量:2
下载量:0
时间:
Excel中的保护密码具体该如何破解呢?下面是读文网小编带来的关于excel2007保护密码破解的教程,希望阅读过后对你有所启发!
破解密码步骤1:Office Password Unlocker是一个简单、易用、功能强劲可以直接同时恢复Office文档打开密码和修改密码的office密码破解软件!
破解密码步骤2:Office Password Unlocker支持Office 97到2007系列所有版本的Microsoft Word、Excel、Access和PowerPoint。
破解密码步骤3:提供三种模式(暴力破解、带掩码的暴力破解和字典破解)来加强对上述Office系列文档密码的恢复,并且可以根据实际需要来对字典进行定制。
破解密码步骤4:提供无可匹敌比其它程序快一倍的最大密码恢复速度,不管密码的长度如何和有多复杂,它都可以及时有效地为你恢复。
浏览量:2
下载量:0
时间:
Excel中经常需要用到密码破解的软件,密码具体该如何进行破解呢?接下来是读文网小编为大家带来的excel2003文件密码破解的方法,供大家参考。
文件密码破解步骤1:先暂定系统中的杀毒软件,等将Excel密码破解完毕后再重新开启杀毒。(破解类的工具杀毒软件都会误认为是木马或病毒,这个没毒,请放心使用。)
文件密码破解步骤2:双击运行该软件;
文件密码破解步骤3:单击“文件”按钮,在弹出的菜单中选择“打开文件…”,然后找到你需要破解的Excel表格的存放位置,打开;
文件密码破解步骤4:此时,Excel文件就已经导入了此软件,大家还可以看到可以破解“打开”、写入、工作簿密码、共享工作簿密码、VBA工程密码等,全部可以移除。点击界面上的“移除密码”;
文件密码破解步骤5:点击“移除密码”以后会提示程序必须要链接网络才可以运行,(确定你的计算机是否已经链接好了网络,然后单击“确定”按钮);
文件密码破解步骤6:这时后会提示 “状态: 正在链接到 Rixler Server ”,只需等待几秒钟破解完成即可。
文件密码破解步骤7:OK,密码被成功移除,该文档已经被成功解密,如下图:
文件密码破解步骤8:哦,生成了一个新的没有密码了的文档:西西软件 _NESOY.xls
浏览量:2
下载量:0
时间:
Excel中经常需要使用到密码破解的情况,密码破解具体该如何进行操作呢?下面是读文网小编带来的关于excel2003版密码破解的教程,希望阅读过后对你有所启发!
密码破解步骤1:先暂定系统中的杀毒软件,等将Excel密码破解完毕后再重新开启杀毒。(破解类的工具杀毒软件都会误认为是木马或病毒,这个没毒,请放心使用。)
密码破解步骤2:双击运行该软件;
密码破解步骤3:单击“文件”按钮,在弹出的菜单中选择“打开文件…”,然后找到你需要破解的Excel表格的存放位置,打开;
密码破解步骤4:此时,Excel文件就已经导入了此软件,大家还可以看到可以破解“打开”、写入、工作簿密码、共享工作簿密码、VBA工程密码等,全部可以移除。点击界面上的“移除密码”;
密码破解步骤5:点击“移除密码”以后会提示程序必须要链接网络才可以运行,(确定你的计算机是否已经链接好了网络,然后单击“确定”按钮);
密码破解步骤6:这时后会提示 “状态: 正在链接到 Rixler Server ”,只需等待几秒钟破解完成即可。
密码破解步骤7:OK,密码被成功移除,该文档已经被成功解密,如下图:
密码破解步骤8:哦,生成了一个新的没有密码了的文档:西西软件 _NESOY.xls
浏览量:2
下载量:0
时间:
Excel中的密码具体该如何进行破解呢?下面是读文网小编带来的关于excel表格密码的破解教程,希望阅读过后对你有所启发!
破解密码步骤1:新建一个EXCEL文件“BOOK1”,在工具栏空白位置,任意右击,选择Visual Basic项,弹出Visual Basic工具栏:
破解密码步骤2:在Visual Basic工具栏中,点击“录制”按钮,弹出“录制新宏”对话框,选择“个人宏工作簿”:
破解密码步骤3:选择“个人宏工作簿”后按确定,弹出如下“暂停”按钮,点击停止:
破解密码步骤4:在Visual Basic工具栏中,点击“编辑”按钮:
破解密码步骤5:点击“编辑”按钮后,弹出如下图的编辑界面:
找到“VBAProject(PERSONAL.XLS)-模块-模块1(也可能是模块N-其他数字)”
双击模块1-将右边代码内容清空
破解密码步骤6:复制“工作保护密码破解”代码到右边框中,点保存,然后关闭“BOOK1”
破解密码步骤7:运行需要解密的“EXCEL文件”,在Visual Basic工具栏中,点击“运行”按钮
破解密码步骤8:点击“运行”按钮后,弹出“宏”对话框,
点击运行“PERSONAL.XLS!工作保护密码破解”这个宏
破解密码步骤9:运行“PERSONAL.XLS!工作保护密码破解”这个宏后,
如下图示意就可以 解除工作表的密码保护了
(这个图,如果工作表中有多组不同密码,
每解开一组,就会提示一次,也就说可能会出现几次)
工作表保护密码破解(代码)
=========请复制以下内容=============
Public Sub 工作表保护密码破解()
Const DBLSPACE As String = vbNewLine & vbNewLine
Const AUTHORS As String = DBLSPACE & vbNewLine & _
"作者:McCormick JE McGimpsey "
Const HEADER As String = "工作表保护密码破解"
Const VERSION As String = DBLSPACE & "版本 Version 1.1.1"
Const REPBACK As String = DBLSPACE & ""
Const ZHENGLI As String = DBLSPACE & " hfhzi3—戊冥 整理"
Const ALLCLEAR As String = DBLSPACE & "该工作簿中的工作表密码保护已全部解除!!" & DBLSPACE & "请记得另保存" _
& DBLSPACE & "注意:不要用在不当地方,要尊重他人的劳动成果!"
Const MSGNOPWORDS1 As String = "该文件工作表中没有加密"
Const MSGNOPWORDS2 As String = "该文件工作表中没有加密2"
Const MSGTAKETIME As String = "解密需花费一定时间,请耐心等候!" & DBLSPACE & "按确定开始破解!"
Const MSGPWORDFOUND1 As String = "密码重新组合为:" & DBLSPACE & "$$" & DBLSPACE & _
"如果该文件工作表有不同密码,将搜索下一组密码并修改清除"
Const MSGPWORDFOUND2 As String = "密码重新组合为:" & DBLSPACE & "$$" & DBLSPACE & _
"如果该文件工作表有不同密码,将搜索下一组密码并解除"
Const MSGONLYONE As String = "确保为唯一的?"
Dim w1 As Worksheet, w2 As Worksheet
Dim i As Integer, j As Integer, k As Integer, l As Integer
Dim m As Integer, n As Integer, i1 As Integer, i2 As Integer
Dim i3 As Integer, i4 As Integer, i5 As Integer, i6 As Integer
Dim PWord1 As String
Dim ShTag As Boolean, WinTag As Boolean
Application.ScreenUpdating = False
With ActiveWorkbook
WinTag = .ProtectStructure Or .ProtectWindows
End With
ShTag = False
For Each w1 In Worksheets
ShTag = ShTag Or w1.ProtectContents
Next w1
If Not ShTag And Not WinTag Then
MsgBox MSGNOPWORDS1, vbInformation, HEADER
Exit Sub
End If
MsgBox MSGTAKETIME, vbInformation, HEADER
If Not WinTag Then
Else
On Error Resume Next
Do 'dummy do loop
For i = 65 To 66: For j = 65 To 66: For k = 65 To 66
For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66
For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66
For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126
With ActiveWorkbook
.Unprotect Chr(i) & Chr(j) & Chr(k) & _
Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _
Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
If .ProtectStructure = False And _
.ProtectWindows = False Then
PWord1 = Chr(i) & Chr(j) & Chr(k) & Chr(l) & _
Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
MsgBox Application.Substitute(MSGPWORDFOUND1, _
"$$", PWord1), vbInformation, HEADER
Exit Do 'Bypass all for...nexts
End If
End With
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
Loop Until True
On Error GoTo 0
End If
If WinTag And Not ShTag Then
MsgBox MSGONLYONE, vbInformation, HEADER
Exit Sub
End If
On Error Resume Next
For Each w1 In Worksheets
'Attempt clearance with PWord1
w1.Unprotect PWord1
Next w1
On Error GoTo 0
ShTag = False
For Each w1 In Worksheets
'Checks for all clear ShTag triggered to 1 if not.
ShTag = ShTag Or w1.ProtectContents
Next w1
If ShTag Then
For Each w1 In Worksheets
With w1
If .ProtectContents Then
On Error Resume Next
Do 'Dummy do loop
For i = 65 To 66: For j = 65 To 66: For k = 65 To 66
For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66
For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66
For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126
.Unprotect Chr(i) & Chr(j) & Chr(k) & _
Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
If Not .ProtectContents Then
PWord1 = Chr(i) & Chr(j) & Chr(k) & Chr(l) & _
Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
MsgBox Application.Substitute(MSGPWORDFOUND2, _
"$$", PWord1), vbInformation, HEADER
'leverage finding Pword by trying on other sheets
For Each w2 In Worksheets
w2.Unprotect PWord1
Next w2
Exit Do 'Bypass all for...nexts
End If
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
Loop Until True
On Error GoTo 0
End If
End With
Next w1
End If
MsgBox ALLCLEAR & AUTHORS & VERSION & REPBACK & ZHENGLI, vbInformation, HEADER
破解密码步骤10:End Sub
破解密码步骤11:<工作表保护密码破解放代码>是放在VBAProject(PERSONAL.XLS)[个人宏工作簿]——[模块]中的,如上图是放在红色标号2[模块1]中
浏览量:59
下载量:0
时间:
Excel中经常需要使用到某些软件把工作簿密码给破解了,工作簿的密码具体该如何进行破解呢?下面是由读文网小编分享的excel2007工作簿密码破解的教程,以供大家阅读和学习。
工作簿密码破解步骤1:点击“Access密码破解”标签,进入如图所示的窗口,点击“浏览”按钮选择要破解的Access文件(注意:未注册版“浏览”按钮不可用,你可以在文本框中输入文件路径和文件名,并且要输入后缀名)。
工作簿密码破解步骤2:点击“开始”按钮就可以穷举密码了。点击“暂停”按钮可以暂停程序的运行。如果点击“停止并保存”按钮则可停止程序的运行,并且保存进度,下次可以接着当前进度破解。调入进度的方法是点击工具栏上的“设置”按钮加载进度即可。找到密码时会显示在进度文本框中。
工作簿密码破解步骤3:点击“开始”按钮就可以穷举密码了。点击“暂停”按钮可以暂停程序的运行。如果点击“停止并保存”按钮则可停止程序的运行,并且保存进度,下次可以接着当前进度破解。调入进度的方法是点击工具栏上的“设置”按钮加载进度即可。找到密码时会显示在进度文本框中。
工作簿密码破解步骤4:如果得出的密码不正确,可以尝试选中“使用暴力破解”选项,然后再点“破解”按钮。
工作簿密码破解步骤5:如果还是不行的话,请再选中“尝试更多密码”就可以了。不过破解速度会很慢!
浏览量:2
下载量:0
时间:
Excel中经常需要把加密的文档进行破解密码,破解密码具体该如何操作呢?接下来是读文网小编为大家带来的excel2007破解密码的方法,供大家参考。
破解密码步骤1:Office Password Unlocker是一个简单、易用、功能强劲可以直接同时恢复Office文档打开密码和修改密码的office密码破解软件!
破解密码步骤2:Office Password Unlocker支持Office 97到2007系列所有版本的Microsoft Word、Excel、Access和PowerPoint。
破解密码步骤3:提供三种模式(暴力破解、带掩码的暴力破解和字典破解)来加强对上述Office系列文档密码的恢复,并且可以根据实际需要来对字典进行定制。
破解密码步骤4:提供无可匹敌比其它程序快一倍的最大密码恢复速度,不管密码的长度如何和有多复杂,它都可以及时有效地为你恢复。
浏览量:2
下载量:0
时间:
Excel中经常会遇到文档需要破解密码的需求,加密的Excel文档具体该如何进行破解密码呢?下面是由读文网小编分享的excel2007破解密码的教程,以供大家阅读和学习。
步骤1:Office Password Unlocker是一个简单、易用、功能强劲可以直接同时恢复Office文档打开密码和修改密码的office密码破解软件!
步骤2:Office Password Unlocker支持Office 97到2007系列所有版本的Microsoft Word、Excel、Access和PowerPoint。
步骤3:提供三种模式(暴力破解、带掩码的暴力破解和字典破解)来加强对上述Office系列文档密码的恢复,并且可以根据实际需要来对字典进行定制。
步骤4:提供无可匹敌比其它程序快一倍的最大密码恢复速度,不管密码的长度如何和有多复杂,它都可以及时有效地为你恢复。
浏览量:2
下载量:0
时间: